{ 
  setwd("~/Dropbox/AWS Infrastructure")
  
  #delete directories 
  try(unlink("~/Downloads/readme-software/readme", recursive = T), T) 
  try(unlink("~/Downloads/readme-software/data", recursive = T), T) 
  try(unlink("~/Downloads/readme-software/results", recursive = T), T) 
  try(unlink("~/Downloads/readme-software/support", recursive = T), T) 
  
  #create directories
  dir.create("~/Downloads/readme-software/data", recursive =T)
  dir.create("~/Downloads/readme-software/results", recursive =T)
  dir.create("~/Downloads/readme-software/support", recursive =T)

  #setup R package 
  file.copy(from="./readme.tar.gz", to="~/Downloads/readme-software/", overwrite = TRUE, recursive = T, copy.mode = TRUE)  
  file.copy(from="./readme.pdf", to="~/Downloads/readme-software/", overwrite = TRUE, recursive = T, copy.mode = TRUE)  
  
  #setup testing capabilities 
  testing_files <- c("readme2_master_public.R", "readme2_quantification_algos.R", 
                     "readme2_sampling_helper_fxns.R", "readme2_sampling.R", 
                     "readme2_testing.R","readme2_testing_helper_fxns.R", "readme2_va2_replication.R")
  file.copy(from= sprintf("./Readme2_SupportCode/%s",testing_files), 
            to="~/Downloads/readme-software/support/", overwrite = TRUE, recursive = F, copy.mode = TRUE)  
  saveText = gsub(readLines("~/Downloads/readme-software/support/readme2_testing.R"), 
               pattern = "\\./Readme2_SupportCode/", replace = "\\./support/")
  writeLines(saveText,"~/Downloads/readme-software/support/readme2_testing.R")
  
  file.copy(from= "./Readme2_SupportCode/public_master.R",
            to="~/Downloads/readme-software/", overwrite = TRUE, recursive = F, copy.mode = TRUE)  
  file.copy(from= "./Readme2_SupportCode/package_instructions.R",
            to="~/Downloads/readme-software/", overwrite = TRUE, recursive = F, copy.mode = TRUE)  
  
  if(T == F){ 
    data_files <- c(list.files("./Public Data"))
    file.copy(from= sprintf("./Public Data/%s",data_files), 
            to="~/Downloads/readme-software/data/", overwrite = TRUE, recursive = F, copy.mode = TRUE)  
    file.copy(from= "./glove.twitter.27B/glove.twitter.27B.25d.txt",
              to="~/Downloads/readme-software/data/", overwrite = TRUE, recursive = F, copy.mode = TRUE)  
  } 
  
}
